
 
 V a r i a b l e   N u m e r i c   S l o t _ S o l e n o i d V o l t a g e 
 
 S l o t _ S o l e n o i d V o l t a g e   =   2   '   T h e   s o l e n o i d   v o l t a g e   1 0 0 0   =   + 4 V   /   - 1 0 0 0   =   - 4 V 
 
 
 
 G o s u b   T E S T 
 
 ' G o s u b   P e n S i n g l e A n d W a i t S o l e n o i d O N 
 
 S t o p 
 
 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     B U T T O N S   A N D   K E Y S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   S e t B u t t o n s A n d K e y s 
 
 	 
 
 	 B u t t o n   8   T e x t   T E S T 
 
 	 B u t t o n   T E S T   T e x t   " T E S T " 
 
 	 B u t t o n   T E S T   C o l o r   A q u a 
 
 	 
 
 R e t u r n 
 
 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     P E N   U P / D O W N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   P e n U p 
 
 	 ' S l o t ( S l o t _ P E N )   =   P e n U p _ V a l u e 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l   P e n D o w n 
 
 	 ' S l o t ( S l o t _ P E N )   =   P e n D o w n _ V a l u e 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l   P e n S i n g l e 
 
 	 G o s u b   P e n D o w n 
 
 	 L o a d   s o u n d \ C l i c k 3 . w a v 
 
 	 ' L o a d   " m e d i a \ s o u n d \ l a s e r . w a v " 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   P e n U p 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E Q U E N C E   L O A D I N G   A N D   E X E C U T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   S t r i n g   S e q u e n c e F i l e N a m e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e C m d 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e I n d e x 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e L e n g t h 
 
 
 
 L a b e l   E x e c S e q u e n c e 
 
 	 L o a d   S e q u e n c e   S e q u e n c e F i l e N a m e 
 
 	 I f   L e n ( S e q u e n c e )   =   0 
 
 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 P r i n t   C R L F   +   "   S e q u e n c e   f i l e   n o t   f o u n d :   "   +   S e q u e n c e F i l e N a m e 
 
 	 	 B e e p 
 
 	 	 S t o p 
 
 	 E n d I f 
 
 	 ' 
 
 	 V a r i a b l e   N u m e r i c   E x e c S e q u e n c e S t a r t T i m e 
 
 	 E x e c S e q u e n c e S t a r t T i m e   =   E l a p s e d T i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 S e q u e n c e L e n g t h   =   G e t S e p a r a t e d S t r i n g C o u n t ( S e q u e n c e ,   C R L F ) 
 
 	 F o r   S e q u e n c e I n d e x   =   0   T o   S e q u e n c e L e n g t h - 1 
 
 	 	 S e q u e n c e C m d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e ,   S e q u e n c e I n d e x ,   C R L F ) 
 
 	 	 S e q u e n c e C m d   =   R e p l a c e ( S e q u e n c e C m d ,   C h r ( 9 ) ,   "   " )   ' T A B S   t o   S P A C E S 
 
 	 	 S e q u e n c e C m d   =   R e m o v e C o m m e n t s ( S e q u e n c e C m d ) 
 
 	 	 S e q u e n c e C m d   =   T r i m ( S e q u e n c e C m d ) 
 
 	 	 ' 
 
 	 	 I f   S e q u e n c e C m d   < >   " " 
 
 	 	 	 P r i n t   "   E x e c u t i n g   c o m m a n d :   "   +   S e q u e n c e C m d   +   C R L F 
 
 	 	 	 ' 
 
 	 	 	 S e l e c t   S e q u e n c e C m d 
 
                         	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   E n d   s e q u e n c e 
 
 	 	 	 	 C a s e   " E n d S e q " 
 
 	 	 	 	 	 S e q u e n c e I n d e x   =   S e q u e n c e L e n g t h - 1 
 
 	 	 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   P e n   a c t i o n s 
 
 	 	 	 	 C a s e   " P e n U p "                         '   m o v e   p e n   u p 
 
 	 	 	 	 	 G o s u b   P e n U p 
 
 	 	 	 	 C a s e   " P e n D o w n "                     '   m o v e   p e n   d o w n 
 
 	 	 	 	 	 G o s u b   P e n D o w n 
 
 	 	 	 	 C a s e   " P e n S i n g l e "                 '   s i n g l e   c l i c k 
 
 	 	 	 	 	 G o s u b   P e n S i n g l e 
 
 	 	 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   W i t h   p a r a m e t e r s 
 
 	 	 	 	 C a s e E l s e 
 
 	 	 	 	 	 s 1   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   0 ) 
 
 	 	 	 	 	 S e l e c t   s 1 
 
 	 	 	 	 	 	 C a s e   " P e n S i n g l e A n d W a i t S o l e n o i d O N " 
 
 	 	 	 	 	 	 	 T e s t V o l t _ T i m e S e c   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 	 G o s u b   P e n S i n g l e A n d W a i t S o l e n o i d O N 
 
 	 	 	 	 	 	 C a s e   " P a u s e " 
 
 	 	 	 	 	 	 	 W a i t   S e c o n d s   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 C a s e E l s e 
 
 	 	 	 	 	 	 	 I f   s 1   < >   " " 
 
 	 	 	 	 	 	 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 	 	 	 	 	 	 P r i n t   C R L F   +   "   U n r e c o g n i z e d   c o m m a n d :   "   +   S e q u e n c e C m d   +   C R L F 
 
 	 	 	 	 	 	 	 	 B e e p 
 
 	 	 	 	 	 	 	 	 S t o p 
 
 	 	 	 	 	 	 	 E n d I f 
 
 	 	 	 	 	 E n d S e l e c t 
 
 	 	 	 E n d S e l e c t 
 
 	 	 	 ' G o s u b   U p d a t e B u t t o n s 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 P r i n t   s 1   +   "   e x e c u t e d   i n   "   +   F o r m a t ( E l a p s e d T i m e   -   E x e c S e q u e n c e S t a r t T i m e ,   " 0 . 0 0 " )   +   "   s e c o n d s "   +   C R L F 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     U N L O C K - L O C K   s e q u e n c e 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   N u m C y c l e 
 
 
 
 L a b e l   O p e n U n L o c k L o c k S e q 
 
 	 L o a d   " S e q u e n c e s \ U n L o c k - L o c k . s e q " 
 
 R e t u r n 
 
 
 
 L a b e l   T E S T 
 
 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ U n L o c k - L o c k . s e q " 
 
 	 V a r i a b l e   N u m e r i c   n n 
 
 	 n n   =   1 0 0 ' I n p u t   " H o w   m a n y   c y c l e s ? " 
 
 	 I f   n n   < >   0 
 
 	 	 F o r   N u m C y c l e   =   1   T o   n n 
 
 	 	 	 G o s u b   E x e c S e q u e n c e 
 
 	 	 	 W a i t   S e c o n d s   0 . 5 
 
 	 	 N e x t 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   A L A R M 
 
 	 V a r i a b l e   N u m e r i c   A L 
 
 	 F o r   A L   =   1   T o   1 
 
 	 	 L o a d   " s o u n d / A l a r m 1 0 b . w a v " 
 
 	 	 W a i t   N o t   M e d i a P l a y i n g 
 
 	 	 W a i t   S e c o n d s   0 . 5 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 V a r i a b l e   N u m e r i c   T e s t V o l t _ T i m e S e c 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S O L E N O I D 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   W S 1 
 
 V a r i a b l e   N u m e r i c   W S 2 
 
 
 
 L a b e l   P e n S i n g l e A n d W a i t S o l e n o i d O N 
 
 	 
 
 	 S l o t ( S l o t _ S o l e n o i d V o l t a g e )   =   1 0 0 0 
 
 	 
 
 	 F o r   W S 2   =   1   T o   9 e 9 9 
 
 	 	 G o s u b   P e n S i n g l e 
 
 	 	 F o r   W S 1   =   1   T o   9 e 9 9 
 
 	 	 	 
 
 	 	 	 I f   S l o t ( S l o t _ S o l e n o i d V o l t a g e )   >   7 0 0 
 
 	 	 	 	 E x i t   2 	 	 	 ' e x i t   f r o m   t w o   f o r   l o o p s 
 
 	 	 	 	 ' W S 1   =   9 e 9 9 
 
 	 	 	 	 ' W S 2   =   9 e 9 9 
 
 	 	 	 E n d I f 
 
 	 	 	 W a i t   S e c o n d s   0 . 1 
 
 	 	 	 
 
 	 	 	 ' I f   W S 1   >   T e s t V o l t _ T i m e S e c   *   1 0 	 '   t i m e o u t   1 0   S e c 
 
 	 	 	 ' 	 I f   W S 2   <   3 	 	 	 	 	 '   n u m b e r   o f   t r i a l s 
 
 	 	 	 ' 	 	 ' W S 1   =   0 
 
 	 	 	 ' 	 	 ' E x i t   1 
 
 	 	 	 ' 	 	 W S 1   =   9 e 9 9 
 
 	 	 	 ' 	 E l s e 
 
 	 	 	 ' 	 	 G o s u b   A L A R M 
 
 	 	 	 ' 	 	 E n d 
 
 	 	 	 ' 	 E n d I f 
 
 	 	 	 ' E n d I f 
 
 	 	 	 
 
 	 	 N e x t 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 
 
 
 
 ' W A T C H   W S 1 
 
 ' W A T C H   W S 2 
 
 ' W A T C H   S e q u e n c e I n d e x 
 
 ' W A T C H   G e t S e p a r a t e d S t r i n g 
 
 ' E X E C   D e s t X   =   1 2 
 
 